Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/bbs_lord/life118d.zip/LIFE.ZIP/DEEDSTXT.DAT

Text File | 1996-03-12 | 9KB | 261 lines

@#Deeds
`<SetOptions>=[1,2,3,4,5,6,7,R]
`<Clear>
`0                             Heroic Deeds
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2  Looming on a hill you see the local castle...its a foreboding
`2structure...As you trudge up the hill to the fortress you wonder
`2what great deeds you may be able to perform...You think on how
`2experienced you are in life...


`2     (`51`2) Work in the `4kitchens
`2     (`52`2) Help an old man and his horse
`2     (`53`2) Help old lady across the street
`2     (`54`2) Lay your coat in a mud puddle as a lady of the court passes
`2     (`55`2) Recover stolen crown jewels
`2     (`56`2) Kill the local dragon
`2     (`57`2) Rescue Princess Jenna from the evil local Baron
`2     (`4R`2)eturn to the big city
@#DeedsOptions?
`<SetMenu>=[Deeds]
@#DeedsOptions1
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You don't feel very experienced in life yet...so you
`2decide to go to the kitchens to work for the day...
`2  Not too glamorous of a heroic deed...but here in the
`2city working in these overwhelming castle kitchens you
`2work hard and gain some experience in Lord Life!
`2
`<AddVal>=[(LGems),(TheUser),1]
`2YOU GET 1 GEM
`<AddVal>=[(LordGold),(TheUser),10]
`2YOU GET 10 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),1000]
`2YOU GET 1000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),10]
`2YOU GET 10 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),500]
`2YOU GET 500 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions2
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<ifless>=[(FLifeExp),(TheUser),500,@#Need2]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You don't feel experienced enough yet to kill
`2a dragon, but as you go about your business you see an old
`2man who cannot seem to get off his horse...You decide to
`2help the old man...He thanks you saying: "Aye Thankye stranger
`2me ol' bones dost be a' gettin old...Jack aint what he used to be!"
`2
`<AddVal>=[(LCharm),(TheUser),10]
`2YOU GET 10 Charm
`<AddVal>=[(LordGold),(TheUser),100]
`2YOU GET 100 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),2000]
`2YOU GET 2000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),100]
`2YOU GET 100 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),2000]
`2YOU GET 2000 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions3
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<ifless>=[(FLifeExp),(TheUser),1500,@#Need3]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You don't feel experienced enough yet to kill
`2a dragon, but as you go about your business you see an old
`2lady who is having trouble crossing the street...You decide
`2help the old lady...She thanks you saying: "Aye Thankye stranger
`2me ol' bones dost be a' gettin old...Jill aint what she used to be!"
`2
`<AddVal>=[(LCharm),(TheUser),10]
`2YOU GET 10 Charm
`<AddVal>=[(LordGold),(TheUser),100]
`2YOU GET 100 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),10000]
`2YOU GET 10000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),100]
`2YOU GET 100 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),20000]
`2YOU GET 20000 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions4
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<ifless>=[(FLifeExp),(TheUser),50000,@#Need4]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You don't feel experienced enough yet to kill
`2a dragon, but as you go about your business you see a lady of
`2the court who is having trouble crossing a puddle...You decide
`2place your coat upon the puddle...She thanks you saying: "Thankye noble
`2stranger...Ye dost be ver' kin' ...Your chivalry will be rewarded."
`2
`<AddVal>=[(LCharm),(TheUser),10]
`2YOU GET 10 Charm
`<AddVal>=[(LGems),(TheUser),5]
`2YOU GET 5 Gems
`<AddVal>=[(LForestFights),(TheUser),5]
`2YOU GET 5 FOREST FIGHTS
`<AddVal>=[(LordGold),(TheUser),500]
`2YOU GET 500 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),50000]
`2YOU GET 50000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),100]
`2YOU GET 100 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),100000]
`2YOU GET 100000 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions5
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<ifless>=[(FLifeExp),(TheUser),1000000,@#Need5]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You don't feel experienced enough yet to kill
`2a dragon, but as you go about your business you notice an
`2add on the wall stating that the crown jewels have once again
`2been stolen...You decide to try to find the jewels and gain
`2fame and fortune along the way...
`2
`<AddVal>=[(LGems),(TheUser),10]
`2YOU GET 10 Gems
`<AddVal>=[(LForestFights),(TheUser),25]
`2YOU GET 25 Forest Fights
`<AddVal>=[(LordGold),(TheUser),5000]
`2YOU GET 5000 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),1000000]
`2YOU GET 1000000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),100]
`2YOU GET 100 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),5000000]
`2YOU GET 5000000 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions6
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<ifless>=[(FLifeExp),(TheUser),25000000,@#Need6]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  You decide to go fer `$BIG GAME`2 today we hunt`4 DRAGONS`2!!!
`2You speak to the King at the castle and he tells you about dragons and that
`2dragons usually do not bother man...but sometimes rogue dragons do
`2appear...and they are the worst scourge of the land...
`2You `4boldly`2 head out to defeat the monster...
`2
`<AddVal>=[(LCharm),(TheUser),15]
`2YOU GET 15 Charm
`<AddVal>=[(LGems),(TheUser),10]
`2YOU GET 10 Gems
`<AddVal>=[(LForestFights),(TheUser),30]
`2YOU GET 30 Forest Fights
`<AddVal>=[(LordGold),(TheUser),10000]
`2YOU GET 10000 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),20000000]
`2YOU GET 20000000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),100]
`2YOU GET 100 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),50000000]
`2YOU GET 50000000 EXPERIENCE IN LIFE
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU DID A HEROIC DEED AND GOT SOME STUFF!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!]
@#DeedsOptions7
`<if>=[(FDeedDone),(TheUser),1,@#DoneDeed]
`<if>=[(FSavedPr),(TheUser),1,@#DonePr]
`<ifless>=[(FLifeExp),(TheUser),345000000,@#Need7]
`<SetVal>=[(FDeedDone),(TheUser),1]
`2
`2
`2  A sadness has fallen upon the land...the `5princess`2 has been
`2stolen by the evil baron `7Sir Greg`2...You decide that the `5princess`2
`2deserves better...and since you have little faith in the current
`2rescue efforts you decide to go and bring her back yourself!!!
`2You `4boldly`2 head out to rescue the `5princess`2...
`2
`<AddVal>=[(LCharm),(TheUser),20]
`2YOU GET 20 Charm
`<AddVal>=[(LGems),(TheUser),20]
`2YOU GET 20 Gems
`<AddVal>=[(LForestFights),(TheUser),100]
`2YOU GET 100 FOREST FIGHTS
`<AddVal>=[(LordGold),(TheUser),10000]
`2YOU GET 10000 GOLD COINS IN LORD
`<AddVal>=[(FLifeGold),(TheUser),20000000]
`2YOU GET 20000000 DOLLARS IN LIFE
`<AddVal>=[(LordExp),(TheUser),1000]
`2YOU GET 1000 LORD EXPERIENCE
`<AddVal>=[(FLifeExp),(TheUser),50000000]
`2YOU GET 50000000 EXPERIENCE IN LIFE
`<SetVal>=[(FSavedPr),(TheUser),1]
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),!!!!!!!!YOU SAVED THE PRINCESS!!!!!!!!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),@]
@#DeedsOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#DeedsOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#DoneDeed
`<NewLine>
`2  Sorry pal no moonlighting...you have time for 1 deed only!
`<NewLine>
@#Need2
`2
`2Sorry...You need 500 LIFE EXP to help the old man!
@#Need3
`2
`2Sorry...You need 1500 LIFE EXP to help the old lady!
@#Need4
`2
`2Sorry...You need 50000 LIFE EXP to help a lady of the court!
@#Need5
`2
`2Sorry...You need 1,000,000 LIFE EXP to be hired to find the jewels!
@#Need6
`2
`2Sorry...You need 25,000,000 LIFE EXP to be sent after the dragon!
@#Need7
`2
`2Sorry...You need 345,000,000 LIFE EXP to be hired to save Princess Jenna!
@#DonePr
`2
`2Sorry, but you have already saved the princess!
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#ENDOFFILE